[ox OK RO te ek ee ee eR KKK KK KK KR EEK KKK KE KK KKK KKK KKK KKK KKK 


SPOOL 

TSMS.LST 
Q5/04/82 
15:52:23 


KKK KK RIK KK KK KK I KK IK KKK IK IK KK IK KKK KR KKK KKK RK AK KKK KKK KKKK KKK KKK RK KK / 


PLYM=36é COMPILER 


TCL Buffered MIP Sand Process 


SERTIES~ITI PL/N-865 V2.0 COMPILATION OF MODULE TBMS 
MODULE. “PLACED: IN SETETSuS.05) 


OBJECT 
COMPILER 


keke WARNING 


TNVOKED BY: PLM86.86 :F1:TBMS.P86 OPTIMIZEC3) KREF SETCF1) DEBUG 


STITLEC’ TCL Suffered MIP Send Process 
SCOMPACT DEBUG NOCOND 

10 IN 1 CLINE 2): RESPECIFIED PRIMARY CONTROL, IGNORED 
SSETCmip form) 


SIF f7 
SELSE 
SINCLUDE C:FIscpyrt.dep) 


/x Intel Corporation Proprietary Information. 
This listing is supplied under the terms of a 
license agrement with Intel Corporaton and 

may not be copied nor disclosed except in 
accordance with the terms of that agreement. x/ 


SENOIF 


tlhms: O00, 


7x This process exists to buffer mip send requests from the 
other TCL processes, thus removing mip send waiting time 
the packet turnaround time. It also prevents RP from 
an ISIS under 


locked up while trying to send an RB via MIP to 
DJC which is not polling MIPRCV,. *x/ 


SIE *7 
SELSE : 
SSAVE NOLIST INCLUDE (:F1:TCLG3L.INC) 


DECLARE 
msgSp POINTER, 
tcl 3mipfsendistatus SYTE, 
msS$Srbs BASED msgtp 
Sr ae 
SELSE 
S$SAVE NOLIST INCLUDE (€:F1:TCLRSS.INC) 
, 
Sir f7 


SELSE 
SSAVE NOLIST INCLUDE (:F1:TCLMBSX.INC) 


SL ity 
SELSE 


SSAVE NOLIST INCLUDE (:F1:KAO0S.O0CP) 


VE NOLIST INCLUDE (C:F1:MIP.OCP) 
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89 


ro 
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7 


f 
c 
be 
= 


NOLIST INCLUDE (C:F1:THACF.INC) 
we ae oe! 
SENDIF 


SIF log 
SENOTE 


thmssproc: PROCEDURE PUBLIC; 
DO forever, 


msgsp = casreceive(.bufimipsmbx), 
SIF Log 
SENDIF 
/x send the RB back via MIP x/ 
tcl$mipisendSstatus = caSmipssend(msSrbs.rtnSmipsskt, msg$p); 
/x bad sends are ignored x/ 
END, /x of do forever */ 


END thmsSproc; 


END thas, 
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Fferad MT Sen 


Ck. Se 
ROSSTR 


a -41 
ri 


NAME, ATTRIBUTES, 


ALARMP . 2 -« 
ALARMP ~ « 
ALARMP . « 28» « « * 
ALARMP . % 
SUEMIPMBX, a 
CQCHECKALARM .. 
GOCLEARALARM: “a a 4 
CQCREATEALARM,. . 
CQOCREATELIST « « « 
CQCREATEMATLBOX. .. 
CQCREATEPROCESS. . 
CQCREATESEMAPHORE,. 
GOCREGCEIVE a 28. \.% 
COCWALT & 6 4! x . 
CQHALTANDCATCHFIRE 
COTPCRECEIVG ss: w wots 
CO PGWAET: od. eo oa: Ma 
CODSEMDS.. ae te 
GOZSTGNAM cw, ee 
CQMIPCONNECT «2 « 
CQMIPGETADDRESS. . 
CQMIPGETMIPFORM. 
CQMIPREGISTER. . 
CQMIPSEND. . 
CQMRECEIVE . 
CQREADCLOCK. 
COREGELVEs + 
CQSCHEDULE « 
GCOSEND ¢- e 
COSETALARM . 
COSTGNAL «© < 
COSTAR Te 5s 
CQWAITSEM. . 
DATARING ) 6 Sa ce Je 
DEFNET EDC LY 6 ve a. 
DELAYH. « << » 
DEER Loe gi ws 
DLLHEADERLEN . 
ENTRYVO: -o- Se 2 
ERRORCODE. . 
PAS Ee. a. vdeo 


FOREVER. ao 
PREEITRSEMSX 
FREELIRAMEX, 
HACFCHKACB 
HACFOLLCONN. . 
HACFOLLRE RDHOST. 
HACFIPDEFIRB. . 
HACFMIPCONNECT . 
HACFMIPREGISTER. . 
HACFMIPSEND. .« 
HACFPUTCNT 2. 2 « « 


a 
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FE RENCE LISTING 


AND REFERENCES 


POINTER IN 
POINTER IN 
POINTER IN 
POINTER IN 


11/28/81 15:40 


PROC (CQSETALARM) PARAMETER 

PROC (CQCLEARALARM) PARAMETER 
PROC (CQCREATEALARM) PARAMETER 
PROC (CQCHECKALARM) PARAMETER 


WORD EXTERNAL C5) 90 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEOURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


BYTE EXTERNALC28) STACK=O0000H 
EXTERNAL C29) STACK=0000H 
EXTERNALC26) STACK=Q000H 
EXTERNALC8) STACK=0000H 
EXTERNAL(16) STACK=Q000H 
EXTERNAL(11) STACK=Q000H 
EXTERNAL(12) STACK=O0000H 

POINTER EXTERNAL(19) STACK=0000H 
BYTE EXTERNAL(15) STACK=0000H 
EXTERNAL (10) STACK=0000H 


POINTER EXTERNAL(24) STACK=Q000H 


BYTE EXTERNAL C22) STACK=COO0OH 
EXTERNAL (C23) STACK=0000H 
EXTERNAL C21) STACK=O000H 

BYTE EXTERNALC31) STACK=G9000H 
POINTER EXTERNAL(33) STACK=0000H 
POINTER EXTERNAL (34) STACK=O0000H 
BYTE EXTERNAL (C32) STACK=Q000H 
BYTE EXTERNALC30) STACK=0000H 
POINTER EXTERNALC20) STACK=0000H 
EXTERNAL C25) STACK=G0O00H 

POINTER EXTERNAL(18) STACK=Q0000H 
EXTERNALC9) STACK=Q000H 
EXTERNAL(17) STACK=Q000H 
EXTERNAL C27) STACK=O000H 
EXTERNAL (13) STACK=O0000H 
EXTERNAL C7) STACK=O0000H 

EXTERNAL (14) STACK=Q0000H 


WORD IN PROC CCQREADCLOCK) PARAMETER 


LITERALLY 
WORD IN PR 
WORD IN PR 
LITERALLY 


at 
OC (CQSETALARM) PARAMETER 
OC (CQSETALARM) PARAMETER 
ales ie a 


WORD IN PROC (CQCREATEPROCESS) PARAMETER 
WORD IN PROC (CCQHALTANDCATCHFIRE) PARAMETER 13 


LITERALLY 
LITERALLY 
WORO EXTER 
WORD EXTER 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 


se Hd 
“WHILE true’ 8&9 
NAL (3) 
NAL C4) 
°438° 
“401% 
"402° 
432%. 
“404° 
“434° 
"416" 
“405° 


914 


90 


58 


64 


64 
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OOC0H 
OOOOH 
OO00H 


QOQQQOH 
OOO0CH 
OOOOH 
OOOOH 
O000H 
OO00H 
GOQOQO0H 


QO00Q0H 
dOOQ0H 
QO00H 


OOO00H 
OCOQOH 
OO00H 
Q000H 
OO000H 
O001H 
0002H 
QO004H 
0908H 
COQAH 
0008H 
O0O0CH 
QOOEH 
QOOFH 
0010H 
0012H 
Q016H 
0018H 
QO1AH 
OO01CH 
OO1EH. 
OO1FH 


ul 


BAe VN NMN EN BAMw A AMEN SANE KE 


& Pr Po 


ror PT PP Pp 


5 ae ee 


TCL 3u 
CROSS 


HACF 
HACF 
HACF 
HACE 
nACF 
HACF 
HACE 
HACE 
HACK 
HACF 
HACF 
HACE 
HACF 
HACF 
HACF 


HACFZ 


INIT 
IPIN 
LIST 
LOGR 
MATL 
MATL 
MAIL 
MAIL 
MAIL 
MAIL 
MATL 
HAXS 
MAXS 
M3X0 
MESS 
MESS 
MINP 
MIPE 
MIP_ 
MSGP 
MSGP 


MSRBS 


fered MIP Send 
“REFERENCES LISTING 


RPCOMPLETE . 
RPDEFIRB « « 
RPPUTDATAP ., 
RPPUTNEWSLK. 
RPPUTPTR « « 
RPPUTSENDRSS 
SENOSLKLEN . 
TPGETBLKLEN. 
TPGETCHK « .« 
TPIRSACS . . 
TPIRBP « «2 « 
TPIRSGTYPE. 
TPTIMEOQUT. 
TQSEQ. . 
XQ e = « 
Q -s 2 s 
MBXe « « 
Pe. « « » 
BMIPPORT 
BOXQ 
BOX0 
BOX0 
30X0 
BOXO 
BO XO 
3OX0 
EGOATAL 
ENDSEG . . 


AGEP . 2 « « 
AGEP « « «© « 
KTLEN. «2 « « 
CHOPORT. « « 
FORM 2 « « « 


>a « 2 a a 


CONTENTS «2 
CREDIT « « « 
LASTSEQs. « « 
MIPBUFBASE . 
MIPLENGTH. . 
MIPIOSID « . 


MIPOWNERDEVTI 


INTERNALPROC 
REQse » © «© « 
RESP 2 5 «2 « 
RTNMIPSKT. « 
LINK » «8 «© -« 
CTD. 2 ow 
FIRSTOGa a 4s 
CLIENTUSE. . 
BUFLEN .« « 
NUMBLKS. « » 


V5 s s s 2 a 


Process 


LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 


LITERALLY “4 


LITERALLY 
LITERALLY 


LITERALLY °4 


LITERALLY 
LITERALLY 
PROC CCQCREATESEMAPHORE) PARAMETER 
WORD EXTERNAL C2) 

POINTER IN PROC (CQCREATELIST) PARAMETER 


WORD IN 


LITERALLY: *5 


WORD IN 
WORD IN 
WORD IN 
WORD IN 
WORD IN 
WORD IN 
WORD IN 


LITERACLY 
LITERALLY 


PROC 
PROC 
PROC 
PROC 
PROC 
PROC 
PROC 


Y 2 
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(CCQCRECEIVED PARAMETER 
CCQRECEIVE) PARAMETER 


C(CQSENS) PARAMETER 
(CQCREATE 


MAILBOX) 


PARAMETER 


CCQSETALARM) PARAMETER 
CCQICRECEIVE) PARAMETER 
(CQISEND) PARAMETER 


°4480" 
“O7H’ 


"WORD IN PROC (CCQMIPCONNECT) PARAMETER 
POINTER IN PROC C(CQSEND) PARAMETER 
POINTER IN PROC (CQISEND) PARAMETER 


LITERALLY 


CI TERALLY “x 
POINTER IN PROC (CQMIPGETADDRESS)- PARAMETER 


POINTER 


“46% 


a 


90* 


91 


POINTER IN PROC CCQMIPSEND) PARAWETER 


STRUCTURE 


BYTE 
BYTE 
WORD 
POINTER 
WORD 
BYTE 
SY Te 
WORD 
BYTc 
BYTE 
WORD 
POINTER 
WORD 
WORD 
WORD 
WORD 
SYTE 
BYTE 


91 


BASEDCMSGP) 
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2 ONBDTCLECHOPORT. . 
16 O0Q00H Ce PGB: ve et eae vel ce oe 
76 OOCOH 4. VBORTEO Se ie ca ee ce 
16 OOOOH OF PR Rg jet a, Mi de Ue Fa. fe 
79 OOOOH 2 PROCEDUREO . we. 
&5 OOOOH he "PT Rig. cat “ak Me eee 

4 QQOOH 2. RPMS Ms arse Hee, & 

4 OO00H 2. SCHEDLOCK @ um Soe. 
28 OOOOH 2 SEMAPHOREO .« «. « 
25 OOOOH 2 SEMAPHOREO « « a 
22 OOOOH 2 S=MAPHOREO « «es 
19 OOOGH 2  SEMAPHOREO « « a 
49 QO00H 2 SEMAPHOREC « «a 
46 OOOOH 2 SEMAPHOREO « we « 
73 OOOOH 2 “SOCGET ci ay Oe tees 
16 O0000H Qe (STAC KO. Ue. cae ae oe 

OOOGH TOWS<. ea. ve en es 
38 OOOOH 32; “FOMSPROC ‘sce vet 

2 TCLHEADERLEN « a 

2 TCEMIPSPORT: Sea: cs 

3 0004H 1 TCLMIPSENDSTATUS . 

2 TCLPROTOCOLCODE,. . 

2 TCLPROTOCOLCODEREV 

2 TCLVERSIONLIT. « 

2 TIMEQUTINCREASESTA 

2 TIMEOUTSTZADYSTATE 

4 QO000H 2. RMB Kia: trea te 

2 PRU ar pan ee ee 
43. Q0GO00H oi, WEB Os. car. See oe Sa Sil. el ae 


MODULE INFORMATION: 


CODE AREA SIZE = O0020H 52D 
CONSTANT AREA SIZE = QQO0H 0D 
VARTABLE AREA STZE = OOO5H 50 
MAXIMUM STACK STZE = CQQOAH 100 


320 LINES READ 
1 PROGRAM WARNING 
O PROGRAM ERRORS 


END OF PL/M~86 COMPILATION 
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LITERALLY 77” 


WORD 
BYTE 
WORD 
WORD 


IN 
IN 
IN 
IN 


POINTER 


WORD 


WORD 
WORD 
aORD 
WORD 
WORD 
WORD 
WORD 
wORD 


PROCEDURE 
PROCEDURE 
LITERALLY 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


PROC 
PROC 
PROC 
PROC 
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(CCQCREATEPROCESS) PARAMETER 
CCQMIPCONNECT) PARAMETER 
CCQCREATEPROCESS) PARAMETER 
CCQMIPREGISTER) PARAMETER 


IN PROC (CQMIPGETMIPFORM) PARAMETER 
EXTERNAL (1) 
WORD EXTERNAL C6) 


PROC 
PROC 
PROC 
PROC 
PROC 
PROC 
PROC 
PROC 


LITERALLY °4’ 


BYTE 


CCQCWAIT) PARAMETER 28 
(CQWAITSEM) PARAMETER 25 
(CQSIGNAL) PARAMETER 22 
(COCREATESEMAPHORE) PARAMETER 

(CQICWAIT) PARAMETER 49 
(CQISIGNAL) PARAMETER 46 
(CQMIPSEND) PARAMETER 73 


(CQOCREATEPROCESS) PARAMETER 


STACK=Q000H 
PUBLIC STACK=Q00AH 
"?C’ . 


LITERALLY ’5001H’ 


LITERALLY 
LITERALLY 


LET SRALLY 


LITERALLY: *0* 


WORD EXTERNAL (OQ) 


LITé@RALLY 


"ORPH* 89 


WORD IN PROC CCQMRECEIVE) PARAMETER 43 
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